library(ggplot2)

Warning: package 'ggplot2' was built under R version 4.3.3

library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

library(tidyr)
library(lubridate)

Attaching package: 'lubridate'

The following objects are masked from 'package:base':

    date, intersect, setdiff, union

library(stringr)
library(emojifont)

Warning: package 'emojifont' was built under R version 4.3.3

library(ggtext)

Warning: package 'ggtext' was built under R version 4.3.3

library(leaflet)
library(sf)

Linking to GEOS 3.11.2, GDAL 3.7.2, PROJ 9.3.0; sf_use_s2() is TRUE

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ forcats 1.0.0     ✔ readr   2.1.5
✔ purrr   1.0.2     ✔ tibble  3.2.1

── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(readr)
library(jsonlite)

Attaching package: 'jsonlite'

The following object is masked from 'package:purrr':

    flatten

library(wordcloud)

Warning: package 'wordcloud' was built under R version 4.3.3

Loading required package: RColorBrewer

library(tidytext)

airbnb_data <- read_csv("airbnb_data.csv")

Rows: 225 Columns: 50
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (16): Name, Title, Listing URL, Price, Qualifier, Can Instant Book, Orig...
dbl (10): Id, Beds, Baths, Bedrooms, Average Rating, Number of Reviews, Clea...
lgl (24): City, Cleaning Fee, Airbnb Service Fee, Total Charged for Stay, Ea...

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

rats <- read_csv("Rat_Sightings_20240507.csv")|>
  filter(Latitude!="NA",
         Longitude!="NA")

Rows: 241846 Columns: 38
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (26): Created Date, Closed Date, Agency, Agency Name, Complaint Type, De...
dbl  (5): Unique Key, X Coordinate (State Plane), Y Coordinate (State Plane)...
lgl  (7): Vehicle Type, Taxi Company Borough, Taxi Pick Up Location, Bridge ...

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

parks <- read_csv("Parks_Properties_20240507.csv")

Rows: 2047 Columns: 35
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr  (20): ADDRESS, BOROUGH, CLASS, DEPARTMENT, EAPPLY, GISPROPNUM, GlobalID...
dbl  (10): ACRES, COMMUNITYBOARD, COUNCILDISTRICT, GISOBJID, NYS_ASSEMBLY, N...
lgl   (4): PERMIT, PIP_RATABLE, RETIRED, WATERFRONT
dttm  (1): ACQUISITIONDATE

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

parks_sf <- st_as_sf(parks, wkt = "multipolygon")


url<- "https://data.cityofnewyork.us/resource/fi97-k4k6.json"

farmers_markets <- fromJSON(url)|>
  mutate(latitude=as.numeric(latitude),
         longitude=as.numeric(longitude))

boroughs<- "https://services5.arcgis.com/GfwWNkhOj9bNBqoJ/arcgis/rest/services/NYC_Borough_Boundary/FeatureServer/0/query?outFields=*&where=1%3D1&f=geojson"
boroughs<-fromJSON(boroughs)

rats_location <- rats |>
  select(Latitude, Longitude) 

rats_location

# A tibble: 239,532 × 2
   Latitude Longitude
      <dbl>     <dbl>
 1     40.7     -73.9
 2     40.8     -73.9
 3     40.8     -73.9
 4     40.8     -74.0
 5     40.7     -74.0
 6     40.8     -73.9
 7     40.7     -74.0
 8     40.6     -74.0
 9     40.8     -74.0
10     40.7     -74.0
# ℹ 239,522 more rows

rats_graph<-rats_location|>
  sample_n(225)  

airbnb_location<-airbnb_data|>
  select(Latitude, Longitude)

house_icon <- makeIcon(
  iconUrl = "https://www.iconeasy.com/icon/png/System/Vista%20General/house.png",
  iconWidth = 29,
  iconHeight = 29
)

rat_icon <- makeIcon(
  iconUrl = "https://icons.iconarchive.com/icons/google/noto-emoji-animals-nature/256/22251-rat-icon.png",
  iconWidth = 28,
  iconHeight = 28
)

leaflet() |>
  addTiles() |>
  setView(lng = -74.00, lat = 40.71, zoom = 12) |>
  addMarkers(data = airbnb_data, lng = ~Longitude, lat = ~Latitude, icon = house_icon,
     popup = ~paste("<a href='", `Listing URL`, "'><b>", Title, "</b></a>", "</br>", Name, "</br>", Price, Qualifier))|>
  addMarkers(data=rats_graph, lng=~Longitude, lat=~Latitude, icon = rat_icon, popup = ~paste("squeak squeak:)"))

carrot_icon <- makeIcon(
  iconUrl = "https://images.emojiterra.com/google/noto-emoji/unicode-15.1/color/svg/1f955.svg",
  iconWidth = 29,
  iconHeight = 29
)

leaflet() |>
  addTiles() |>
  setView(lng = -74.00, lat = 40.71, zoom = 12)|>
  addMarkers(data=farmers_markets, lng=~longitude, lat=~latitude, icon = carrot_icon, popup = ~paste(marketname, "</br>", daysoperation, hoursoperations))

leaflet() |>
  addTiles() |>
  setView(lng = -74.00, lat = 40.71, zoom = 12)|>
  addPolygons(data=parks_sf, color="deeppink", popup = ~paste(SIGNNAME))

word <- airbnb_data |>
  select(Name) |>
  mutate(Name = str_to_lower(Name),
         word = str_split(Name, "\\s+"))|>
         unnest(word) |>
  mutate(word = str_remove_all(word, "[^[:alpha:]]")) |>
  anti_join(stop_words) |>
  count(word, sort=TRUE)|>
  slice(2:378)

Joining with `by = join_by(word)`

pinkalicious <- c("#FF6FFF", "#FF5D99", "hotpink", "#FFCFF7", "deeppink")


wordcloud(words = word$word, freq = word$n, min.freq = 1,
          max.words = 100, random.order = FALSE, rot.per = 0.35, 
          colors = pinkalicious)

manhattan_lat_range <- c(40.70, 40.88)
manhattan_lon_range <- c(-74.02, -73.93)

brooklyn_lat_range <- c(40.57, 40.74)
brooklyn_lon_range <- c(-74.04, -73.82)

queens_lat_range <- c(40.53, 40.79)
queens_lon_range <- c(-73.96, -73.71)

bronx_lat_range <- c(40.79, 40.92)
bronx_lon_range <- c(-73.93, -73.73)

staten_island_lat_range <- c(40.48, 40.65)
staten_island_lon_range <- c(-74.27, -74.04)


airbnb_with_boroughs<-airbnb_data|>
  mutate(borough = ifelse(airbnb_data$Latitude >= manhattan_lat_range[1] & airbnb_data$Latitude <= manhattan_lat_range[2] &
                                airbnb_data$Longitude >= manhattan_lon_range[1] & airbnb_data$Longitude <= manhattan_lon_range[2],
                              "Manhattan",
                              ifelse(airbnb_data$Latitude >= brooklyn_lat_range[1] & airbnb_data$Latitude <= brooklyn_lat_range[2] &
                                       airbnb_data$Longitude >= brooklyn_lon_range[1] & airbnb_data$Longitude <= brooklyn_lon_range[2],
                                     "Brooklyn",
                                     ifelse(airbnb_data$Latitude >= queens_lat_range[1] & airbnb_data$Latitude <= queens_lat_range[2] &
                                              airbnb_data$Longitude >= queens_lon_range[1] & airbnb_data$Longitude <= queens_lon_range[2],
                                            "Queens",
                                            ifelse(airbnb_data$Latitude >= bronx_lat_range[1] & airbnb_data$Latitude <= bronx_lat_range[2] &
                                                     airbnb_data$Longitude >= bronx_lon_range[1] & airbnb_data$Longitude <= bronx_lon_range[2],
                                                   "Bronx",
                                                   ifelse(airbnb_data$Latitude >= staten_island_lat_range[1] & airbnb_data$Latitude <= staten_island_lat_range[2] &
                                                            airbnb_data$Longitude >= staten_island_lon_range[1] & airbnb_data$Longitude <= staten_island_lon_range[2],
                                                      "Staten Island", NA))))))



airbnb_with_boroughs|>
  select(Title, Latitude, Longitude, borough)|>
  print(n=Inf)

# A tibble: 225 × 4
    Title                            Latitude Longitude borough      
    <chr>                               <dbl>     <dbl> <chr>        
  1 Room in New York                     40.7     -74.0 Manhattan    
  2 Room in New York                     40.7     -74.0 Manhattan    
  3 Apartment in New York                40.8     -74.0 Manhattan    
  4 Place to stay in New York, NY        40.8     -74.0 Manhattan    
  5 Room in New York                     40.8     -74.0 Manhattan    
  6 Room in Brooklyn                     40.7     -74.0 Brooklyn     
  7 Apartment in New York                40.7     -74.0 Manhattan    
  8 Guest suite in Brooklyn              40.7     -74.0 Brooklyn     
  9 Guest suite in New York City         40.7     -73.8 Brooklyn     
 10 Room in Brooklyn                     40.7     -74.0 Brooklyn     
 11 Condo in New York                    40.8     -74.0 Manhattan    
 12 Place to stay in Brooklyn            40.7     -74.0 Brooklyn     
 13 Room in New York                     40.8     -74.0 Manhattan    
 14 Room in Brooklyn                     40.7     -74.0 Brooklyn     
 15 Loft in New York City                40.7     -73.8 Brooklyn     
 16 Room in New York                     40.7     -74.0 Manhattan    
 17 Apartment in Brooklyn                40.7     -74.0 Brooklyn     
 18 Home in New York City                40.7     -73.9 Brooklyn     
 19 Apartment in New York                40.8     -74.0 Manhattan    
 20 Apartment in Brooklyn                40.7     -73.9 Brooklyn     
 21 Home in Brooklyn                     40.7     -73.9 Brooklyn     
 22 Apartment in New York                40.8     -74.0 Manhattan    
 23 Room in Brooklyn                     40.7     -74.0 Brooklyn     
 24 Room in Brooklyn                     40.6     -74.0 Brooklyn     
 25 Apartment in Jersey City             40.7     -74.1 <NA>         
 26 Apartment in New York                40.8     -74.0 Manhattan    
 27 Room in New York                     40.8     -73.9 Manhattan    
 28 Room in New York                     40.7     -74.0 Manhattan    
 29 Room in New York                     40.8     -73.9 Manhattan    
 30 Room in New York                     40.8     -73.9 Manhattan    
 31 Apartment in New York                40.7     -74.0 Manhattan    
 32 Loft in New York                     40.8     -73.9 Manhattan    
 33 Room in New York                     40.7     -74.0 Manhattan    
 34 Apartment in New York                40.8     -74.0 Manhattan    
 35 Room in New York                     40.7     -74.0 Manhattan    
 36 Room in Brooklyn                     40.7     -74.0 Brooklyn     
 37 Room in New York                     40.8     -74.0 Manhattan    
 38 Guest suite in New York              40.7     -73.9 Brooklyn     
 39 Apartment in New York                40.8     -73.9 Manhattan    
 40 Guest suite in Brooklyn              40.7     -73.9 Manhattan    
 41 Room in West New York                40.8     -74.0 Manhattan    
 42 Apartment in New York                40.8     -74.0 Manhattan    
 43 Room in Brooklyn                     40.7     -74.0 Brooklyn     
 44 Home in Cliffside Park               40.8     -74.0 Manhattan    
 45 Apartment in New York                40.8     -74.0 Manhattan    
 46 Room in New York City                40.7     -73.9 Queens       
 47 Apartment in Brooklyn                40.7     -74.0 Manhattan    
 48 Guest suite in New York              40.7     -73.9 Brooklyn     
 49 Room in New York                     40.7     -74.0 Manhattan    
 50 Guest suite in White Plains          41.0     -73.8 <NA>         
 51 Apartment in New York City           40.8     -73.9 Manhattan    
 52 Room in New York                     40.8     -74.0 Manhattan    
 53 Room in Brooklyn                     40.6     -74.0 Brooklyn     
 54 Guest suite in New York              40.8     -74.0 Manhattan    
 55 Room in Brooklyn                     40.7     -73.9 Brooklyn     
 56 Place to stay in New York            40.7     -74.0 Manhattan    
 57 Room in New York                     40.8     -74.0 Manhattan    
 58 Room in New York                     40.8     -74.0 Manhattan    
 59 Apartment in New York                40.7     -74.0 Manhattan    
 60 Place to stay in New York            40.8     -74.0 Manhattan    
 61 Apartment in New York                40.8     -74.0 Manhattan    
 62 Apartment in New York                40.8     -74.0 Manhattan    
 63 Townhouse in Brooklyn                40.7     -73.9 Manhattan    
 64 Home in Palisades Park               40.8     -74.0 Manhattan    
 65 Room in Brooklyn                     40.6     -74.0 Brooklyn     
 66 Room in Brooklyn                     40.7     -74.0 Brooklyn     
 67 Apartment in Union City              40.8     -74.0 <NA>         
 68 Guesthouse in Brooklyn               40.6     -74.0 Brooklyn     
 69 Guest suite in Brooklyn              40.7     -73.9 Brooklyn     
 70 Apartment in Hastings-on-Hudson      41.0     -73.9 <NA>         
 71 Place to stay in New York City       40.7     -73.9 Brooklyn     
 72 Apartment in New York                40.8     -73.9 Manhattan    
 73 Apartment in New York                40.7     -74.0 Manhattan    
 74 Apartment in New York                40.7     -74.0 Manhattan    
 75 Apartment in New York                40.8     -74.0 Manhattan    
 76 Apartment in New York                40.7     -74.0 Manhattan    
 77 Apartment in New York                40.7     -74.0 Manhattan    
 78 Apartment in New York                40.8     -74.0 Manhattan    
 79 Apartment in New York                40.8     -74.0 Manhattan    
 80 Apartment in New York                40.8     -74.0 Manhattan    
 81 Apartment in New York                40.8     -74.0 Manhattan    
 82 Apartment in New York                40.8     -74.0 Manhattan    
 83 Apartment in New York                40.8     -74.0 Manhattan    
 84 Apartment in New York                40.7     -74.0 Manhattan    
 85 Apartment in New York                40.8     -74.0 Manhattan    
 86 Room in New York                     40.8     -74.0 Manhattan    
 87 Apartment in New York                40.8     -74.0 Manhattan    
 88 Apartment in New York                40.8     -74.0 Manhattan    
 89 Hostel in New York                   40.8     -74.0 Manhattan    
 90 Apartment in New York                40.7     -74.0 Manhattan    
 91 Room in Piscataway Township          40.5     -74.4 <NA>         
 92 Shared room in Yonkers               40.9     -73.9 Bronx        
 93 Room in Brooklyn                     40.7     -74.0 Brooklyn     
 94 Room in New York                     40.8     -73.9 Manhattan    
 95 Place to stay in Brooklyn            40.6     -74.0 Brooklyn     
 96 Room in New York                     40.8     -74.0 Manhattan    
 97 Guest suite in New York City         40.7     -73.8 Queens       
 98 Apartment in Hoboken                 40.7     -74.0 <NA>         
 99 Apartment in Jersey City             40.7     -74.0 Brooklyn     
100 Room in Brooklyn                     40.7     -74.0 Brooklyn     
101 Room in New York City                40.8     -73.9 Queens       
102 Room in New York City                40.8     -73.9 Manhattan    
103 Room in New York                     40.7     -74.0 Manhattan    
104 Room in Jersey City                  40.7     -74.0 <NA>         
105 Room in New York City                40.8     -73.9 Queens       
106 Apartment in Jersey City             40.7     -74.1 <NA>         
107 Apartment in Hoboken                 40.7     -74.0 <NA>         
108 Room in Brooklyn                     40.7     -73.9 Brooklyn     
109 Home in Brooklyn                     40.7     -74.0 Manhattan    
110 Apartment in New York                40.7     -74.0 Manhattan    
111 Apartment in Hoboken                 40.7     -74.0 <NA>         
112 Condo in New York                    40.7     -74.0 Manhattan    
113 Room in Brooklyn                     40.6     -74.0 Brooklyn     
114 Guest suite in Brooklyn              40.6     -73.9 Brooklyn     
115 Loft in Yonkers                      40.9     -73.9 <NA>         
116 Guest suite in Brooklyn              40.7     -73.9 Manhattan    
117 Room in New York City                40.7     -73.8 Brooklyn     
118 Room in Brooklyn                     40.7     -74.0 Brooklyn     
119 Room in Yonkers                      40.9     -73.9 <NA>         
120 Home in Yonkers                      40.9     -73.8 <NA>         
121 Home in New Rochelle                 40.9     -73.8 Bronx        
122 Apartment in New York                40.8     -74.0 Manhattan    
123 Apartment in Woodbridge Township     40.5     -74.3 <NA>         
124 Room in Jersey City                  40.7     -74.0 <NA>         
125 Home in New York City                40.8     -73.9 Queens       
126 Apartment in Jersey City             40.7     -74.0 <NA>         
127 Apartment in New York                40.7     -73.9 Brooklyn     
128 Place to stay in Brooklyn            40.7     -74.0 Manhattan    
129 Room in Brooklyn                     40.7     -74.0 Brooklyn     
130 Room in Brooklyn                     40.7     -73.9 Manhattan    
131 Room in New York                     40.8     -74.0 Manhattan    
132 Place to stay in Brooklyn            40.7     -74.0 Brooklyn     
133 Room in New York City                40.7     -73.9 Brooklyn     
134 Apartment in New York                40.8     -74.0 Manhattan    
135 Room in Brooklyn                     40.7     -73.9 Brooklyn     
136 Apartment in Brooklyn                40.7     -74.0 Brooklyn     
137 Apartment in New York                40.8     -73.9 Manhattan    
138 Apartment in New York                40.7     -74.0 Manhattan    
139 Room in New Brunswick                40.5     -74.4 <NA>         
140 Room in New York City                40.8     -73.9 Queens       
141 Guest suite in Scotch Plains         40.6     -74.4 <NA>         
142 Apartment in Yonkers                 40.9     -73.9 Bronx        
143 Room in Brooklyn                     40.7     -73.9 Brooklyn     
144 Room in Brooklyn                     40.7     -74.0 Brooklyn     
145 Room in Valley Stream                40.7     -73.7 Queens       
146 Room in Brooklyn                     40.7     -73.9 Brooklyn     
147 Home in Brooklyn                     40.7     -74.0 Brooklyn     
148 Room in New York                     40.8     -73.9 Manhattan    
149 Room in Jersey City                  40.7     -74.0 Brooklyn     
150 Apartment in New York                40.7     -74.0 Manhattan    
151 Place to stay in  Bronx              40.9     -73.9 Bronx        
152 Room in New York City                40.8     -73.9 Queens       
153 Apartment in Hoboken                 40.7     -74.0 <NA>         
154 Apartment in Cliffside Park          40.8     -74.0 Manhattan    
155 Room in Brooklyn                     40.7     -73.9 Manhattan    
156 Guesthouse in East Meadow            40.7     -73.5 <NA>         
157 Room in Brooklyn                     40.7     -74.0 Brooklyn     
158 Guesthouse in New York               40.8     -74.0 Manhattan    
159 Place to stay in North Bergen        40.8     -74.0 Manhattan    
160 Apartment in Jersey City             40.7     -74.0 <NA>         
161 Apartment in Hoboken                 40.8     -74.0 <NA>         
162 Apartment in Brooklyn                40.7     -73.9 Brooklyn     
163 Room in New York                     40.8     -73.9 Manhattan    
164 Room in New York City                40.8     -73.9 Queens       
165 Apartment in New York                40.8     -74.0 Manhattan    
166 Apartment in East Meadow             40.7     -73.5 <NA>         
167 Room in New York City                40.7     -73.9 Brooklyn     
168 Room in Bronx                        40.9     -73.8 Bronx        
169 Room in Jersey City                  40.7     -74.1 <NA>         
170 Apartment in New York                40.8     -74.0 Manhattan    
171 Room in The Bronx                    40.9     -73.9 Bronx        
172 Room in Brooklyn                     40.7     -74.0 Brooklyn     
173 Room in New York                     40.8     -73.9 Manhattan    
174 Room in Brooklyn                     40.7     -73.9 Brooklyn     
175 Place to stay in New York City       40.7     -73.9 Queens       
176 Room in Brooklyn                     40.7     -74.0 Brooklyn     
177 Room in New York                     40.8     -73.9 Manhattan    
178 Apartment in Brooklyn                40.7     -74.0 Brooklyn     
179 Apartment in Brooklyn                40.7     -73.9 Brooklyn     
180 Room in Manhattan                    40.7     -74.0 Manhattan    
181 Room in Brooklyn                     40.7     -74.0 Manhattan    
182 Room in New York City                40.8     -73.9 Queens       
183 Apartment in North Bergen            40.8     -74.0 Manhattan    
184 Room in Brooklyn                     40.7     -73.9 Brooklyn     
185 Room in New York City                40.7     -73.9 Queens       
186 Apartment in Brooklyn                40.7     -74.0 Brooklyn     
187 Guest suite in Brooklyn              40.7     -74.0 Manhattan    
188 Room in East Meadow                  40.7     -73.5 <NA>         
189 Apartment in New York                40.8     -74.0 Manhattan    
190 Place to stay in Brooklyn            40.7     -73.9 Brooklyn     
191 Room in Weehawken                    40.8     -74.0 <NA>         
192 Apartment in New York                40.8     -74.0 Manhattan    
193 Home in Long Island                  40.7     -73.6 <NA>         
194 Condo in New York                    40.8     -74.0 Manhattan    
195 Apartment in Jersey City             40.7     -74.0 <NA>         
196 Place to stay in Brooklyn            40.7     -74.0 Brooklyn     
197 Place to stay in Brooklyn            40.7     -74.0 Brooklyn     
198 Guesthouse in Mineola                40.7     -73.6 <NA>         
199 Apartment in Hoboken                 40.7     -74.0 <NA>         
200 Room in Brooklyn                     40.6     -74.0 Brooklyn     
201 Guesthouse in Brooklyn               40.6     -74.0 Brooklyn     
202 Apartment in Lynbrook                40.7     -73.7 <NA>         
203 Room in Brooklyn                     40.7     -73.9 Brooklyn     
204 Apartment in New York                40.8     -74.0 Manhattan    
205 Room in Brooklyn                     40.7     -73.9 Manhattan    
206 Room in New York                     40.8     -74.0 Manhattan    
207 Guest suite in New York              40.7     -74.0 Manhattan    
208 Apartment in Greenwich               41.0     -73.6 <NA>         
209 Place to stay in Brooklyn            40.6     -74.0 Brooklyn     
210 Guest suite in New York City         40.7     -73.9 Brooklyn     
211 Apartment in Glen Cove               40.9     -73.6 <NA>         
212 Room in Brooklyn                     40.7     -74.0 Brooklyn     
213 Room in New Brunswick                40.5     -74.4 <NA>         
214 Apartment in Jersey City             40.7     -74.1 <NA>         
215 Room in Brooklyn                     40.7     -74.0 Brooklyn     
216 Apartment in Jersey City             40.7     -74.0 <NA>         
217 Apartment in New York                40.8     -74.0 Manhattan    
218 Home in Staten Island                40.6     -74.1 Staten Island
219 Room in Brooklyn                     40.6     -73.9 Brooklyn     
220 Room in Brooklyn                     40.7     -73.9 Manhattan    
221 Room in New York City                40.8     -73.9 Queens       
222 Apartment in Jersey City             40.7     -74.1 <NA>         
223 Condo in Brooklyn                    40.7     -73.9 Brooklyn     
224 Place to stay in Brooklyn            40.7     -73.9 Manhattan    
225 Room in Bronx                        40.9     -73.8 Bronx